home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD79487202000.psc / CL Installer / Procedures.bas < prev   
Encoding:
BASIC Source File  |  2000-07-20  |  398 b   |  18 lines
  1. Attribute VB_Name = "Procedures"
  2. Public Sub Cancel()
  3. Dim Message As String
  4. Dim ButtonsAndIcon As Integer
  5. Dim Title As String
  6. Dim Response As Integer
  7.  
  8. Message = "Are you sure you want to quit?"
  9. ButtonsAndIcon = vbYesNo + vbQuestion
  10. Title = "Confirm exit"
  11. Response = MsgBox(Message, ButtonsAndIcon, Title)
  12.  
  13. If Response = vbYes Then
  14.     End
  15. ElseIf Response = vbNo Then
  16. End If
  17. End Sub
  18.